easy-menu-change patch
authorVinicius Jose Latorre <viniciusjl@ig.com.br>
Tue, 26 Dec 2006 03:26:14 +0000 (03:26 +0000)
committerVinicius Jose Latorre <viniciusjl@ig.com.br>
Tue, 26 Dec 2006 03:26:14 +0000 (03:26 +0000)
lisp/ChangeLog
lisp/emacs-lisp/easymenu.el

index 39a51e714e9c52115561a6debd86708f87d394a2..2130648cb7c8c77f1941d02ea2352eea2c92de3a 100644 (file)
@@ -1,3 +1,9 @@
+2006-12-26  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
+
+       * emacs-lisp/easymenu.el (easy-menu-change): New arg MAP to indicate
+       which keymap should be used to change menu.  It does not affect any
+       existent code.
+
 2006-12-26  Richard Stallman  <rms@gnu.org>
 
        * textmodes/fill.el (fill-paragraph): Check for a minibuffer
index a2153beebd9407265982b42997af92ce4db61174..06cafb17e61ee80e2d075b1a0c1057b7c1a1f187 100644 (file)
@@ -443,20 +443,24 @@ When non-nil, NOEXP indicates that CALLBACK cannot be an expression
     command))
 
 ;;;###autoload
-(defun easy-menu-change (path name items &optional before)
+(defun easy-menu-change (path name items &optional before map)
   "Change menu found at PATH as item NAME to contain ITEMS.
 PATH is a list of strings for locating the menu that
 should contain a submenu named NAME.
 ITEMS is a list of menu items, as in `easy-menu-define'.
 These items entirely replace the previous items in that submenu.
 
+If MAP is specified, it should normally be a keymap; nil stands for the local
+menu-bar keymap.  It can also be a symbol, which has earlier been used as the
+first argument in a call to `easy-menu-define', or the value of such a symbol.
+
 If the menu located by PATH has no submenu named NAME, add one.
 If the optional argument BEFORE is present, add it just before
 the submenu named BEFORE, otherwise add it at the end of the menu.
 
 To implement dynamic menus, either call this from
 `menu-bar-update-hook' or use a menu filter."
-  (easy-menu-add-item nil path (easy-menu-create-menu name items) before))
+  (easy-menu-add-item map path (easy-menu-create-menu name items) before))
 
 ;; XEmacs needs the following two functions to add and remove menus.
 ;; In Emacs this is done automatically when switching keymaps, so